﻿Public Class frmRanking
    Dim fichero As New Fichero
    Private Sub btnSalir_Click(sender As System.Object, e As System.EventArgs) Handles btnSalir.Click
        Me.Close()
    End Sub

    Private Sub frmRanking_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        fichero.Ordenar()
        'If fichero.Usuarios Is Nothing OrElse fichero.Usuarios.Count = 0 Then
        If fichero.Usuarios.Count = 0 Then
            MessageBox.Show("No ha jugado ningun usuario")
        Else
            lbl1ºNombre.Text = fichero.Usuarios(1).nombre
            lbl1ºApellido.Text = fichero.Usuarios(1).apellido
            lbl1ºPuntuacion.Text = fichero.Usuarios(1).puntuacion
            lbl2ºNombre.Text = fichero.Usuarios(2).nombre
            lbl2ºApellido.Text = fichero.Usuarios(2).apellido
            lbl2ºPuntuacion.Text = fichero.Usuarios(2).puntuacion
            lbl3ºNombre.Text = fichero.Usuarios(3).nombre
            lbl3ºApellido.Text = fichero.Usuarios(3).apellido
            lbl3ºPuntuacion.Text = fichero.Usuarios(3).puntuacion
            lbl4ºNombre.Text = fichero.Usuarios(4).nombre
            lbl4ºApellido.Text = fichero.Usuarios(4).apellido
            lbl4ºPuntuacion.Text = fichero.Usuarios(4).puntuacion
            lbl5ºNombre.Text = fichero.Usuarios(5).nombre
            lbl5ºApellido.Text = fichero.Usuarios(5).apellido
            lbl5ºPuntuacion.Text = fichero.Usuarios(5).puntuacion
        End If
    End Sub
End Class